home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / repeatfunction.fpl < prev    next >
Text File  |  1995-07-18  |  326b  |  16 lines
  1. export void RepeatFunction()
  2. {
  3.   string func;
  4.   int number;
  5.   CursorActive(0);
  6.   Status(0, "Give keystroke!");
  7.   func=KeyPress();
  8.   if (strlen(func)) {
  9.     number=PromptInt("Repeat function", 0, func);
  10.     Visible(0);
  11.     while (--number>=0)
  12.       ExecuteString(func);
  13.   }
  14. }
  15. AssignKey("RepeatFunction();", "Amiga Control r");
  16.